home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / XLisp 2.1g / lisp / ACKERMAN.LSP next >
Encoding:
Lisp/Scheme  |  1994-05-28  |  116 b   |  5 lines  |  [TEXT/xlsp]
  1. (defun ack (m n)
  2.     (cond ((zerop m) (1+ n))
  3.           ((zerop n) (ack (1- m) 1))
  4.           ((ack (1- m) (ack m (1- n))))))
  5.